home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / loadLaTeX.tcl < prev    next >
Text File  |  1995-06-17  |  8KB  |  248 lines
  1. #############################################################################
  2. # Install the files that support one of the LaTeX modes.
  3. # The global flag $latexVersion indicates which mode (LaTeX 2.09 or LaTeX2e)
  4. # is currently installed.
  5. #
  6. # Author: Tom Pollard <pollard@cucbs.chem.columbia.edu>
  7. # (updated 4/29/95 for latex.tcl v2.4)
  8. #
  9. proc loadLaTeX {} {
  10.     global HOME latexVersion
  11.     
  12.     set oldWd [pwd]
  13.     cd $HOME
  14.     
  15.     set latex209Dir ":LaTeX:latex 2.09"
  16.     set latex209Files {
  17.             {"latex.tcl" ":Tcl:SystemCode"}
  18.             {"latexMode.tcl" ":Tcl:SystemCode"}
  19.             {"smart.tcl" ":Tcl:SystemCode"}
  20.             {"LaTeX Help" ":Help"}
  21.             {"LaTeX Key Bindings" ":Help"}
  22.     }
  23.  
  24.     set latex2eDir ":LaTeX:latex 2e"
  25.     set latex2eFiles {
  26.             {"latex.tcl" ":Tcl:SystemCode"}
  27.             {"latexEngine.tcl" ":Tcl:SystemCode"}
  28.             {"latexKeys.tcl" ":Tcl:SystemCode"}
  29.             {"latexMacros.tcl" ":Tcl:SystemCode"}
  30.             {"latexMenu.tcl" ":Tcl:SystemCode"}
  31.             {"latexMode.tcl" ":Tcl:SystemCode"}
  32.             {"latexPatches.tcl" ":Tcl:SystemCode"}
  33.             {"latexSmart.tcl" ":Tcl:SystemCode"}
  34.             {"LaTeX Help" ":Help"}
  35.             {"LaTeX Key Bindings" ":Help"}
  36.     }
  37.     set report 0
  38.  
  39.     if {$latexVersion == "2e"} {
  40.         if {[askyesno "Install LaTeX 2.09?"] == "yes"} {
  41.             set report [installFiles $latex209Dir $latex209Files $latex2eDir $latex2eFiles 0 1 TeX]
  42.             if {$report != 0} {
  43. # uncomment these lines if new files are not automatically sourced
  44. #                 alertnote "Now quit and restart Alpha to load LaTeX 2.09 mode"
  45. #                 set latexVersion "2.09"
  46. # and comment out this one
  47.                 alertnote "LaTeX 2.09 support was successfully installed"
  48. #
  49.             } else {
  50.                 alertnote "The installation was cancelled"
  51.             }
  52.         }
  53.     } elseif {$latexVersion == "2.09"} {
  54.         if {[askyesno "Install LaTeX 2e?"] == "yes"} {
  55.             set report [installFiles $latex2eDir $latex2eFiles $latex209Dir $latex209Files 0 1 TeX]
  56.             if {$report != 0} {
  57. # uncomment these lines if new files are not automatically sourced
  58. #                alertnote "Now quit and restart Alpha to load LaTeX2e mode"
  59. #                set latexVersion "2e"
  60. # and comment out this one
  61.                 alertnote "LaTeX2e support was successfully installed"
  62. #
  63.             } else {
  64.                 alertnote "The installation was cancelled"    
  65.             }
  66.         }
  67.     }
  68.     
  69.     if {$report != 0} {
  70.         set timePat {([0-9/]+) ([^:]+):([^:]+):([^:]+) (..)}
  71.         regsub $timePat [join [mtime [now] short]] {\1 \2.\3\5} timestamp
  72.         set fname "$HOME:LaTeX:Install Report $timestamp"
  73.         
  74.         set tmpfid [open $fname "w+"]
  75.         puts $tmpfid $report
  76.         close $tmpfid
  77.     }
  78.     
  79.     cd $oldWd
  80. }
  81.  
  82. ##############################################################################
  83. # Install a list of files from $InstallDir into various destination folders.
  84. #
  85. # Each item of $installList contains a list of two items : a file and its 
  86. # destination directory.  If $backupDir and $backupList are given, then the 
  87. # files from this list are first removed from the indicated directories and 
  88. # saved in $backupDir.  If $deleteOld is 1, then an old file is just
  89. # deleted if the backup directory doesn't exist or if it already contains
  90. # the file; if $overwriteBackups is 1, then old backup files will be
  91. # overwritten ($deleteOld is checked before $overwriteBackups).
  92. #
  93. # If any Tcl source files (.tcl) are installed, then they are also automatically
  94. # sourced and "rebuildTclIndices" is called to update the autoloader index files.
  95. # 
  96. # Author: Tom Pollard <pollard@cucbs.chem.columbia.edu>
  97. #
  98. proc installFiles {installDir installList backupDir backupList 
  99.                    {deleteOld 0} {overwriteBackups 0} {deleteBindings 0}} {
  100.     global HOME
  101.     set script {}
  102.     set report ""
  103.     set askedAlready 0
  104.     set removed {}
  105.     
  106.     set script2 {}
  107.     set report2 ""
  108.     
  109.     if {! [file exists $backupDir] && ! $deleteOld} {
  110.         lappend script [list mkdir $backupDir]
  111.         append report "Created backup directory \"$backupDir\"\n"
  112.     } 
  113.     
  114.     foreach item $backupList {
  115.         set file [lindex $item 0]
  116.         set dir [lindex $item 1]
  117.         
  118.         set frompath ${dir}:${file}
  119.         set topath ${backupDir}:${file}
  120.  
  121.         if {[closeInstallFile $file] == "cancel"} {
  122.             return 0
  123.         }        
  124.         
  125.         if {[file exists $frompath]} {
  126.             if {[file exists $topath]} {
  127.                 if {!$deleteOld && !$overwriteBackups && !$askedAlready} {
  128.                     if {[askyesno "Can I delete old files that are already backed up?"] == "yes"} {
  129.                         set deleteOld 1
  130.                     } elseif {[askyesno "Can I overwrite previous backup files?"] == "yes"} {
  131.                         set overwriteBackups 1
  132.                     }
  133.                     set askedAlready 1
  134.                 }
  135.                 if {$deleteOld} {
  136.                     lappend script [list removeFile $frompath]
  137.                     append report "Deleted old file \"$file\" from folder \"$dir\"\n"
  138.                     lappend removed $frompath
  139.  
  140.                 } elseif {$overwriteBackups} {
  141.                     lappend script [list removeFile $topath]
  142.                     lappend script [list copyFile $frompath $topath]
  143.                     lappend script [list removeFile $frompath]
  144.                     append report "Saved old file \"$file\" in folder \"$backupDir\"\n"
  145.                     lappend removed $frompath
  146.                 
  147.                 } else {
  148.                     message "No files were moved or deleted"
  149.                     return 0
  150.                 }
  151.             } else {
  152.                 lappend script [list copyFile $frompath $topath]
  153.                 lappend script [list removeFile $frompath]
  154.                 append report "Saved old file \"$file\" in folder \"$backupDir\"\n"
  155.                 lappend removed $frompath
  156.             }
  157.         } else {
  158.             append report "-- old file \"$file\" was missing from folder \"$dir\" --\n"
  159.         }
  160.     }
  161.     
  162.     append report "\n"
  163.     
  164.     foreach item $installList {
  165.         set file [lindex $item 0]
  166.         set dir [lindex $item 1]
  167.         set frompath ${installDir}:${file}
  168.         set topath ${dir}:${file}
  169.         
  170.         if {[closeInstallFile $file] == "cancel"} {
  171.             return 0
  172.         }        
  173.  
  174.         if {[file exists $frompath]} {
  175.             if {[file exists $topath] && [lsearch -exact $removed $topath] < 0} {
  176.                 if {[askyesno "Can I overwrite the old copy of $file?"] == "yes"} {
  177.                     lappend script [list removeFile $topath]
  178.                     append report "Deleted old file \"$file\" in folder \"$dir\"\n"
  179.                     lappend removed $topath
  180.                 } else {
  181.                     return 0
  182.                 }
  183.             }
  184.             lappend script [list copyFile $frompath $topath]
  185.             append report "Copied file \"$file\" from folder \"$installDir\" to \"$dir\"\n"
  186.             
  187.             if {[file extension $file] == ".tcl"} {
  188.                 lappend script2 [list uplevel {#0} [list source ${HOME}$topath]]
  189.                 append report2 "Loaded the new file \"$file\"\n"
  190.             }
  191.         } else {
  192.             message "Installation aborted - no files were moved or deleted"
  193.             alertnote "Install file \"$file\" is missing"
  194.             return 0
  195.         }
  196.     }
  197.  
  198.     if {[llength $script2]} {
  199. # comment out these lines to stop automatic sourcing of newly loaded .tcl files
  200. # (_Don't_ change the lines creating $script2, above)
  201.         if {$deleteBindings != 0} {
  202.             lappend script [list deleteModeBindings $deleteBindings]
  203.             append report "\nRemoved the old ${deleteBindings}-mode key bindings\n"
  204.         }
  205.         set script [concat $script $script2]
  206.         append report "\n"
  207.         append report $report2
  208. #
  209.         lappend script [list message "Building SystemCode index╔"]
  210.         lappend script [list auto_mkindex :Tcl:SystemCode *.tcl]
  211.         append report "\nUpdated the auto-loader index files\n"
  212.     }
  213.     
  214. # # Uncomment these lines to get a play-by-play of the installation procedure 
  215. # #
  216. #    new -n "* Install Script *"
  217.     foreach item $script {
  218. #    insertText "$item\n"
  219.         eval $item
  220.     }
  221. #    catch {shrinkWindow 1}
  222. #    setWinInfo dirty 0
  223.     
  224.     new -n "* Installation Report *"
  225.     insertText $report
  226.     catch {shrinkWindow 1}
  227.     setWinInfo dirty 0
  228.     setWinInfo read-only 1
  229.  
  230.     return $report
  231. }
  232.  
  233. proc closeInstallFile {file} {
  234.     if {[lsearch -exact [winNames] $file] >= 0} {
  235.         set reply [askyesno -c "Close file $file before installing?"]
  236.         if {$reply == "yes"} {
  237.             bringToFront $file
  238.             killWindow
  239.         } 
  240.         if {$reply == "cancel" || 
  241.             ($reply == "yes" && [lsearch -exact [winNames] $file] >= 0)} {
  242.             message "No files were moved or deleted"
  243.             return "cancel"
  244.         }
  245.     }
  246.     return ""
  247. }
  248.